home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Prog / T / Tri-Menu.cpt / New Pull Down.p next >
Encoding:
Text File  |  1993-07-08  |  215 b   |  18 lines  |  [TEXT/PJMM]
  1. program New;
  2.     uses
  3.         Routines;
  4.     var
  5.         Picture: PicHandle;
  6.         Exit: Boolean;
  7. begin
  8.     Exit := false;
  9.     WindowInit;
  10.     PrepArrows;
  11.     DrawFirstArrow;
  12.     repeat
  13.         DoEvents;
  14.     until Exit;
  15.     while (not button) do
  16.         begin
  17.         end;
  18. end.